home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304D.ZIP;1 / EXBAS.ARJ / FGDOC / EXAMPLES / BASIC / 07-10.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-01-24  |  829 b   |  42 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. OldMode = FGgetmode
  6. FGsetmode 16
  7. FGinitw
  8. FGsetworld 0.0, 6.39, 0.0, 3.49
  9. FGsetsizew 0.21
  10.  
  11. FGsetcolor 15
  12. FGlocate 0, 26
  13. FGtext "Software characters - font 1", 28
  14.  
  15. FGsetcolor 10
  16. FGmovew 0.0, 3.1
  17. FGswchar "ABCDEFGHIJKLMNOPQRSTUVWXYZ",26, -1
  18. FGmovew 0.0, 2.8
  19. FGswchar "abcdefghijklmnopqrstuvwxyz",26, -1
  20. FGmovew 0.0, 2.5
  21. FGswchar "0123456789", 10, -1
  22. FGmovew 0.0, 2.2
  23. FGswchar "!" + CHR$(34) + "#$%&'()*+,-./:;<=>?[]^`{|}~", 29, -1
  24.  
  25. FGsetcolor 15
  26. FGlocate 12, 26
  27. FGtext "Software characters - font 2", 28
  28.  
  29. FGsetcolor 10
  30. FGmovew 0.0, 1.4
  31. FGswchar "\ABCDEFGHIJKLMNOPRSTUWXYZ", 25, -1
  32. FGmovew 0.0, 1.1
  33. FGswchar "\abcdefghijklmnoprstuwxyz", 25, -1
  34. FGmovew 0.0, 0.4
  35. FGswchar "\012345678#$%&()*+/<=>?[]{}", 27, -1
  36. FGwaitkey
  37.  
  38. FGsetmode OldMode
  39. FGreset
  40.  
  41. END
  42.